Namespace BAL.Servicio
	Public Class Servicio
		Public Function Grabar(ByVal _Servicio As BEL.Servicio.Servicio) As System.Boolean
			Dim _dal As New DAL.Servicio.Servicio
			If _Servicio.EsNuevo Then
				Return _dal.Insertar(_Servicio)
			Else
				Return _dal.Modificar(_Servicio)
			End If
        End Function
        Public Function Eliminar(ByVal intId As System.Int32) As System.Boolean
            Dim _dal As New DAL.Servicio.Servicio
            Return _dal.Eliminar(intId)
        End Function
        Public Function Listar(ByVal _Parametros As Object()) As DataTable
            Dim _dal As New DAL.Servicio.Servicio
            Return _dal.Listar(_Parametros)
        End Function
        Public Function Cargar(ByVal intId As System.Int32) As BEL.Servicio.Servicio
            Dim _dal As New DAL.Servicio.Servicio
            Return _dal.Cargar(intId)
        End Function
        Public Function CargarDetalle(ByVal intId As System.Int32) As DataTable
            Dim _dal As New DAL.Servicio.Servicio
            Return _dal.CargarDetalle(intId)
        End Function
        Public Function Listar() As DataTable
            Dim _dal As New DAL.Servicio.Servicio
            Return _dal.Listar()
		End Function
        Public Function ListarTercerizable(ByVal intTipoServicio As System.Int32) As DataTable
            Dim _dal As New DAL.Servicio.Servicio
            Return _dal.ListarTercerizable(intTipoServicio)
        End Function
        Public Function ListarReservable(ByVal intTipoServicio As System.Int32) As DataTable
            Dim _dal As New DAL.Servicio.Servicio
            Return _dal.ListarReservable(intTipoServicio)
        End Function
	End Class
End Namespace